(uniquify-buffer-base-name): If the base name is an empty string,

return nil to allow the caller to default to the buffer name.

diff --git a/lisp/uniquify.el b/lisp/uniquify.el
index b2167f48656ece8c988da9bccb050d93cea376ab..c07dd57af4e99c2e70c47572d3a278d069e23252 100644 (file)
--- a/lisp/uniquify.el
+++ b/lisp/uniquify.el
@@ -194,7 +194,8 @@ It actually holds the list of `uniquify-item's corresponding to the conflict.")
   "Return the base name of the current buffer.
 Return nil if the buffer is not managed by uniquify."
   (and uniquify-managed
-       (uniquify-item-base (car uniquify-managed))))
+       (let ((base (uniquify-item-base (car uniquify-managed))))
+        (if (string= base "") nil base))))
 
 ;;; Main entry point.